home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dtype / f1gp_bkg.lha / f1gp_bkg_dt / Install_F1GP_BKG_Datatype < prev    next >
Text File  |  1997-01-06  |  1KB  |  47 lines
  1. ; $VER: Install_F1GP_BKG_DataType 1.0 (6.1.97)
  2. ;   by Oliver Roberts (oliver@poboxes.com)
  3.  
  4.  
  5. (set @default-dest "")
  6. (set #cpu (database "cpu"))
  7. (set #cpu020 (and (<> #cpu "68000") (<> #cpu "68010")))
  8.  
  9. (if (< (/ (getversion) 65536) 39)
  10.     (abort "You must be running Kickstart 3.0 or higher to use datatypes.")
  11. )
  12.  
  13. (set #cpu020
  14.     (askchoice
  15.         (help @askchoice-help)
  16.         (prompt "Choose which version of the datatype to install")
  17.         (choices "68000" "68020+")
  18.         (default #cpu020)
  19.     )
  20. )
  21.  
  22. (working "Installing Datatype")
  23.  
  24. (if (<> (exists "SYS:Classes") 2) (makedir "SYS:Classes" (infos)) )
  25.  
  26. (set #dtname "Classes/DataTypes/f1gp_bkg.datatype")
  27. (if #cpu020 (set #dtname (cat #dtname ".020")))
  28.  
  29. (copylib
  30.     (help @copylib-help)
  31.     (prompt "Installing f1gp_bkg.datatype class")
  32.     (source #dtname)
  33.     (dest "SYS:Classes/DataTypes")
  34.     (newname "f1gp_bkg.datatype")
  35.     (confirm)
  36. )
  37. (copyfiles
  38.     (help @copyfiles-help)
  39.     (prompt "Installing Format Descriptors")
  40.     (source "Devs/DataTypes/F1GP Backdrop")
  41.     (dest "DEVS:DataTypes")
  42.     (infos)
  43.     (confirm)
  44. )
  45.  
  46. (run "C:AddDataTypes >NIL: REFRESH")
  47.